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: JNLBUSR.R32 = = BL iss macros for initializing user structures. 
i Version 'v04-000' 
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:* COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
't ALL RIGHTS RESERVED. 
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:* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND sorteD ® 
:* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH bi Cenee AND WITH THE * 
!* INCLUSION OF THE ABOVE 3 gt NOTICE. THIS SOFTWARE OR ANY OTHER * 
:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
t® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
't TRANSFERRED. * 
4 ® 
:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTIC * 
:* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMEN * 
Hed CORPORATION. * 
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i® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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Facility: Common Journaling Facility interface from BLISS-32 

! Abstract: 


This file is to be used as a REQUIRE FILE in any BLISS-32 program 
using CJF. Its MACROs serait the BLISS-32 program to allocate 

and statically initialize the control blocks of interest to CJF, and 
dynamically initialize these control blocks. 


! 
1 
7 
' 
' 
1 
: 
: Environment: 

: Author: Larry Yetto, Creation date: 15-APR-1982 
Modified by: 

' 
' 
! 
t 
‘ 
! 
' 
i 


v03-002 Jsv0ers Joost Verhofstad 19-MAY-1983 
Make JSB changes 


v03-001 GJA0009 Greg J. Awdziewicz, 23-Jul-1982 12:42 


Service calls removed. They are now written in Macro and 
converted to Bliss by MARBLI. See JNLCALLS.MAR 
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SCJF_BITS 


Used to initial a field to the logical OR of one or more 
named bits. 


SCJF BITS ( PREFIX , VALUE ) where PREFIX is the character 
prefix to attach to each value, and VALUE is one bitname or 
a list of bits in the form <A,B,(C> 


MACRO 
SCJF_OR (] = 
Or %, 


SCJF_BLOSTR ( P , V DC] = 
ZNAMEC P , V ) S$CJF_OR( ZREMAINING ) SCJF_BLDSTR( P , XREMAINING ) %, 


SCJF_BITS ( PREFIX , VALUE ) = 
ZIF XNULL( VALUE ) 


1 s SCJF_BLDSTR ( PREFIX, ZREMOVE( VALUE )) 


lee 

' 

$JSB_DECL 
i 


: Used to declare a Journal Specification Block where 
initialization is not required. 
MACRO 

$JSB_DECL = 

BLOCRCJSBSC_LENGTH, BYTE) %; 


Used to allocate and statically initialize 
a Journal Specification Block. 


KE YWORDMACRO 


$JSB ( JNLNAM, JNLDEV = JSBSC_DISK, JNLTYP = 3X'FF", 
MASK = ZX"FFFFFFFF*’,APPLID = 0 FACCOD = 0, 
MAXSIZ = 600, FILSIZ = 56, BUFSIZ = 
FILEXT = 1 QUOTA = 0, PROT = %X'FFFO', 
ACMODE = JSBSC_USER,UIC = 0, FLAGS = CREATE, 
ACPNAM, COPIES = 0, EXPDAT, 
PRINAMDES = 0, PRIRESDES = 0, PRIRESLEN = 0, 
JNLNAMLEN=0, ACPNAMLEN = 0 
Ss 


) 
$JSB_DECL 
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PRESET ( 
JSB$B_JNLDEV ] = JNLDEV 
JSBSB-JNLTYP J] = JNLTYP 
JSBSL-MASK = MASK 
JSBSWIAPPLID ] = APPLIO , 
JSBSWIFACCOD J = FACCOD ; 
JSBSWIMAXSIZ ] = MAXSIZ ; 
JSBSL-FILSIZ J = FILSIZ ; 
JSBSWBUFSIZ J = BUFSIZ ; 
SBSWIFILEXT ) = FILEXT ; 

JSBSL“QUOTA J = QUOTA , 
JSBSW~PROT = PROT 
JSBSB-ACMODE } = ACMODE , 

C JSBSL-UIC j = UIC , 
JSBSL-FLAGS J = S$CJF°BITS ( JSBSM_ , FLAGS ), 

C JSBSB-COPIES } = COPIES , 

C JSBSWIJNLNAMLEN ) = JNLNAMLEN , 

C JSBS$WIACPNAMLEN ] = ACPNAMLEN , 

C JSBSLIPRINAMDES } = PRINAMDES . 

C JSBSL-PRIRESDES } = PRIRESDES . 

C JSBSLIPRIRESLEN ] = PRIRESLEN 
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